﻿Public Class Ressources
    Inherits Windows.ResourceDictionary


    Public Shared Sub TextBoxKeyUp(sender As Object, e As Windows.Input.KeyEventArgs)

        Dim txt As Windows.Controls.TextBox = sender

        If e.Key = Windows.Input.Key.Return Then
            Windows.Data.BindingOperations.GetBindingExpression( _
                txt, Windows.Controls.TextBox.TextProperty).UpdateSource()
        End If
    End Sub

End Class
